獨立特色書店的點擊數與其空間關係圖

各書店的資訊:

顯示前6個和後6個

library(jsonlite)
url <- "https://cloud.culture.tw/frontsite/trans/emapOpenDataAction.do?method=exportEmapJson&typeId=M"
my.data <- fromJSON(url)

name address website hitRate
公館舊書城 汀州路3段130號 900
古今書廊 羅斯福路3段244巷17號及23號 pnpbook.blogspot.tw 691
胡思二手書店(公館店) 羅斯福路3段308之1號2 樓(公館捷運站4號出口)(公館店出入口位於羅斯福路三段308-1號本棟正後方,請由兩側巷子繞進) http://www.whosebooks.com.tw 803
茉莉二手書店(臺大店) 羅斯福路四段40巷2號一樓 http://www.mollie.com.tw/Store_1.asp 2056
晶晶書庫 羅斯福路3段210巷8弄8號1樓 http://www.ginginbooks.com 503
信誼小太陽親子書房(臺北重慶店) 重慶南路 2 段 75 號 1 樓 http://www.hsin-yi.org.tw/kidStore 1128
.
.
.
name address website hitRate
82 佩績的店 山東街61號 http://www.peggy-bookstore.com 832
83 小陶壺書坊 隘寮村11鄰中清巷5號 53
84 鶵鳥藝文空間 南港村9鄰尖山腳4號 http://juvart.pixnet.net/blog 30
85 雨果部落書坊 景美村三棧38之1號 9
86 松風閣茶館 埔邊16號 7
87 刺鳥咖啡獨立書店 復興村13鄰222號(12據點) 9

按點擊數由大至小排序各書店的點擊數:

顯示前6個和後6個


name address website hitRate
4 茉莉二手書店(臺大店) 羅斯福路四段40巷2號一樓 http://www.mollie.com.tw/Store_1.asp 2056
32 水木書苑 光復路2段101號(清華大學風雲樓一樓) http://www.nthubook.com.tw 1989
22 古原軒書店 建國南路2段157號 1424
7 下北沢世代 和平西路二段141號2樓之1 1394
11 永樂座書店 建國南路二段123巷6號 http://eirakuza0730.pixnet.net/blog 1365
8 田園城市生活風格書店 中山北路2段72巷6號 http://www.gardencity.com.tw 1358
.
.
.
name address website hitRate
54 吾家書店 崇明路367號 10
66 旅二手概念書店 神農路一段1號 http://blog.roodo.com/voyagebookstore 10
85 雨果部落書坊 景美村三棧38之1號 9
87 刺鳥咖啡獨立書店 復興村13鄰222號(12據點) 9
78 曬書店×新營市民學堂 中山路93-2號2樓 http://2booksite.blogspot.com/ 8
86 松風閣茶館 埔邊16號 7

ggplot2 and ggmap
library(plotly)
## Loading required package: ggplot2
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
library(ggmap)
## 
## Attaching package: 'ggmap'
## The following object is masked from 'package:plotly':
## 
##     wind
my.data$longitude<-as.numeric(my.data$longitude)
my.data$latitude<-as.numeric(my.data$latitude)
twmap <- get_map(location = c(121.53,25.08), zoom = 12, maptype = 'roadmap')
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=25.08,121.53&zoom=12&size=640x640&scale=2&maptype=roadmap&language=en-EN&sensor=false
twmap0 <- ggmap(twmap, extent = 'device')+    #extent = 'device' 滿版
  geom_point(data = my.data, 
             aes(x = longitude, y = latitude, colour = hitRate), 
             size = 9) +
  
  scale_color_continuous(low = "yellow", high = "black")+
  guides(size = FALSE)
## Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
## instead
twmap0
## Warning: Removed 53 rows containing missing values (geom_point).

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=25.05,121.53&zoom=13&size=640x640&scale=2&maptype=roadmap&language=en-EN&sensor=false
## Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
## instead
## Warning: Removed 55 rows containing missing values (geom_point).

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=25.02,121.53&zoom=15&size=640x640&scale=2&maptype=roadmap&language=en-EN&sensor=false
## Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
## instead
## Warning: Removed 66 rows containing missing values (geom_point).

資料來源:政府資料開放平台–文化部收錄獨立特色書店的資料

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.